home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WMP 3.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-07-17  |  1.2 KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Windows Media Player"
  5. "NAME"="Advanced Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.0"
  8. "TEXT 1"="Allow automatic Codec downloads"
  9. "DESCRIPTION 1"="Some options for WMP."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  13.  
  14.  
  15.  
  16. sV1="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\NoCodecDownload" ' DW
  17.  
  18. 'Called when the Plugin is started
  19. SUB Plugin_Initialize  
  20.   i=RegReadValue(sV1)
  21.   if i<>1 then SetUIElement 1,true
  22. END SUB
  23.  
  24. 'Called when the Plugin should validate the Data the user has entered
  25. SUB Plugin_CheckData(ElementIndex)
  26. END SUB
  27.  
  28.  
  29.  
  30. 'Called when the Plugin should apply the changes
  31. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  Call Wrt(1,sV1)
  33. END SUB
  34.  
  35. Sub Wrt(ITM,VAL)
  36.  b=GetUIElement(ITM)
  37.  if b=false then
  38.     Call RegWriteValue(VAL,1,2)
  39.  else
  40.     s=RegReadValue(VAL)
  41.     if IsEmpty(s)=false then
  42.        Call RegDeleteValue(VAL)
  43.     end if
  44.  end if
  45. end sub
  46.  
  47.  
  48. 'Called when the Plugin is about to be removed from memory
  49. SUB Plugin_Terminate
  50. END SUB
  51.  
  52.